有关VB的问题+[满意的话+100分]

这些问题
你直接hi我好了
直接给你程序你自己看

1.如何做到点击command1删除list1选择的项
Private Sub Command1_Click()
If List1.ListIndex = -1 Then Exit Sub
List1.RemoveItem List1.ListIndex
End Sub

2.如果做到点击command1删除list1最后一项
Private Sub Command1_Click()
If List1.ListCount = 0 Then Exit Sub
List1.RemoveItem List1.ListCount - 1
End Sub

3.如何做到点击command1打开电脑文件的浏览框（保存类型只能选择txt），选择txt文件后点击“确定”就能把txt文件里面的内容追加到richtextbox1里，点击command2就能打开电脑文件的浏览框把richtextbox中的字符保存到电脑（保存格式只能选择txt类型）[当txt文件拖动到richtextbox时,能够把txt里的字符追加到richtextbox]
添加1个CommonDialog1，1个Command1,1个Richtextbox1

Private Sub Form_Load()
CommonDialog1.Filter = "文本文件|*.txt"
End Sub

Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.ShowOpen
xf = CommonDialog1.FileName
MsgBox xf
Dim x(10000) As String, str As String
Open xf For Input As #1
For i = 0 To 10000
If Not EOF(1) Then Input #1, x(